#!/bin/perl

print "<HTML>
<HEAD><TITLE>Radio Modification files at QRZ.COM</TITLE></HEAD>
<BODY bgcolor=\"white\">
<a name=\"1\">
<map name=\"main.map\">
    <area shape=\"rect\" coords=\"1, 1,   108,  72\" href=\"/index.html\">
    <area shape=\"rect\" coords=\"160, 1,  256,  72\" href=\"/webcall.cgi?\">
    <area shape=\"rect\" coords=\"275, 1,  344,  72\" href=\"/findham.html?\">
    <area shape=\"rect\" coords=\"360, 1,  416,  72\" href=\"/new_hams.html?\">
    <area shape=\"rect\" coords=\"429, 1,  500,  72\" href=\"/clubs.html?\">
</map>
<img src=\"http:/gifs/qrzmain.jpg\" height=\"72\" width=\"500\" border=0 usemap=\"#main.map\" ISMAP></a>

<p>
<font size=+2 color=\"#008F00\">Radio modification files at QRZ.COM</font>
<p>

<font size=+2><b><a href=\"/mods/mod_info.html\">What if your make/model
isn't listed here...</a></font>
<H2>Radio Mods Index</H2>
<TABLE BORDER=0 width=800>
";

$line=0;
while (<>)
{
	chomp;

	/(.*?)\s+(.*?)\s+(.*?)\s+(.*)/;

	print "<tr><td><a href=\"./$1\">$1</a></td><td>$2</td>";
	print "<td><a href=\"./$1\">$4</a></td></tr>\n";
	$line++;
	if ($line == 64) {
		print "</table>\n<table border=0 width=800>\n";
		$line = 0;
        }

}

print "</table>\n";
print "<p><a href=\"#1\">Back to Top of Page</a><hr>\n";
print "</BODY></HTML>\n";
